home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / text / misc / pcal_4_5.lha / pcal / pscalendar < prev    next >
Text File  |  1994-10-16  |  5KB  |  294 lines
  1. #!/bin/csh -f
  2. #
  3. # [Here it is... the original shell script and PostScript boilerplate that
  4. # would eventually become "pcal".  Modified slightly by A.W. Rogers to
  5. # correct bug in leap year algorithm, suppress the illegible weekday names
  6. # in the small calendars, use the more common "-d" flag (instead of "-P") to
  7. # specify line printer destination, and default to the current month/year.]
  8. #
  9. # Original From: patwood@unirot.UUCP (Patrick Wood)
  10. # 
  11. # The following is a PostScript program to print calendars.  It doesn't
  12. # work on or before 1752.
  13. # 
  14. # Shell stuff added 3/9/87 by King Ables
  15. # 
  16. # Made pretty by tjt 1988
  17. #
  18. # Tim Tessin - Lawrence Livermore National Laboratory 
  19. # tjt@tis.llnl.gov
  20. # Phone: (415) 423-4560 / 422-8971
  21. # Run like the following: pscalendar -Pstrudel 4 1988     - for April 1988
  22. #
  23. set printer="cat"
  24.  
  25. top:
  26. if ($#argv > 0) then
  27.     switch ("$argv[1]")
  28.         case -d*:
  29.         case -P*:
  30.             set printer="lp "`echo $argv[1] | sed s/-P/-d/`
  31.             shift argv
  32.             goto top
  33.         case *:
  34.             if ($?month) then
  35.                 set year="$argv[1]"
  36.             else if ($?year) then
  37.                 echo "usage: $0 [-Pprinter] month year"
  38.                 exit 1
  39.             else
  40.                 set month="$argv[1]"
  41.             endif
  42.             shift argv
  43.             goto top
  44.     endsw
  45. endif
  46.  
  47. if ($?year) then
  48. else 
  49.     @ month = `date +%m`
  50.     @ year = `date +%Y`
  51. endif
  52.  
  53. if ($year < 1900) then
  54.     @ year += 1900
  55. endif
  56.  
  57. cat <<END-OF-CALENDAR | $printer
  58. %!PS-Adobe-1.0
  59. %%BoundingBox: 0 0 612 792
  60. %%Orientation: Landscape
  61.  
  62. % PostScript program to draw calendar
  63. % Copyright (C) 1987 by Pipeline Associates, Inc.
  64. % Permission is granted to modify and distribute this free of charge.
  65.  
  66. % /month should be set to a number from 1 to 12
  67. % /year should be set to the year you want
  68. % you can change the title and date fonts, if you want
  69. % we figure out the rest
  70. % won't produce valid calendars before 1800 (weird stuff happened
  71. % in September of 1752)
  72.  
  73. /month $month def
  74. /year $year def
  75. /titlefont /Times-Bold def
  76. /dayfont /Helvetica-Bold def
  77.  
  78. /month_names [ (January) (February) (March) (April) (May) (June) (July)
  79.         (August) (September) (October) (November) (December) ] def
  80.  
  81. /prtnum { 3 string cvs show} def
  82.  
  83. /drawgrid {        % draw calendar boxes
  84.     dayfont findfont 10 scalefont setfont
  85.     0 1 6 {
  86.         dup dup 100 mul 40 moveto
  87.         submonth 0 eq {
  88.             [ (Sunday) (Monday) (Tuesday) (Wednesday)
  89.               (Thursday) (Friday) (Saturday) ] exch get
  90.             100 center
  91.         } if
  92.         100 mul 35 moveto
  93.         1.0 setlinewidth
  94.         0 1 5 {
  95.             gsave
  96.             100 0 rlineto 
  97.             0 -80 rlineto
  98.             -100 0 rlineto
  99.             closepath stroke
  100.             grestore
  101.             0 -80 rmoveto
  102.         } for
  103.     } for
  104. } def
  105.  
  106. /drawnums {        % place day numbers on calendar
  107.     dayfont findfont 30 scalefont setfont
  108.     /start startday def
  109.     /days ndays def
  110.     start 100 mul 5 add 10 rmoveto
  111.     1 1 days {
  112.         /day exch def
  113.         gsave
  114.         day start add 7 mod 0 eq
  115.         {
  116.             submonth 0 eq
  117.             {
  118.                 .8 setgray
  119.             } if
  120.         } if
  121.         day start add 7 mod 1 eq
  122.         {
  123.             submonth 0 eq
  124.             {
  125.                 .8 setgray
  126.             } if
  127.         } if
  128.         day prtnum
  129.         grestore
  130.         day start add 7 mod 0 eq
  131.         {
  132.             currentpoint exch pop 80 sub 5 exch moveto
  133.         }
  134.         {
  135.             100 0 rmoveto
  136.         } ifelse
  137.     } for
  138. } def
  139.  
  140. /drawfill {        % place fill squares on calendar
  141.     /start startday def
  142.     /days ndays def
  143.     0 35 rmoveto
  144.     1.0 setlinewidth
  145.     0 1 start 1 sub {
  146.         gsave
  147.         .9 setgray
  148.         100 0 rlineto 
  149.         0 -80 rlineto
  150.         -100 0 rlineto
  151.         closepath fill
  152.         grestore
  153.         100 0 rmoveto
  154.     } for
  155.     submonth 1 eq
  156.     {
  157.         /lastday 42 def
  158.         600 -365 moveto
  159.     }
  160.     {
  161.         /lastday 40 def
  162.         400 -365 moveto
  163.     } ifelse
  164.     lastday -1 ndays start 1 add add
  165.     {
  166.         /day exch def
  167.         gsave
  168.         .9 setgray
  169.         100 0 rlineto 
  170.         0 -80 rlineto
  171.         -100 0 rlineto
  172.         closepath fill
  173.         grestore
  174.         day 7 mod 1 eq
  175.         {
  176.             600 -365 80 add moveto
  177.         }
  178.         {
  179.             -100 0 rmoveto
  180.         } ifelse
  181.     } for
  182. } def
  183.  
  184. /isleap {        % is this a leap year?
  185.     year 4 mod 0 eq        % multiple of 4
  186.     year 100 mod 0 ne     % not century
  187.     year 400 mod 0 eq or and    % unless it's divisible by 400
  188. } def
  189.  
  190. /days_month [ 31 28 31 30 31 30 31 31 30 31 30 31 ] def
  191.  
  192. /ndays {        % number of days in this month
  193.     days_month month 1 sub get
  194.     month 2 eq    % Feb
  195.     isleap and
  196.     {
  197.         1 add
  198.     } if
  199. } def
  200.  
  201. /startday {        % starting day-of-week for this month
  202.     /off year 2000 sub def    % offset from start of "epoch"
  203.     off
  204.     off 4 idiv add        % number of leap years
  205.     off 100 idiv sub    % number of centuries
  206.     off 400 idiv add    % number of 400-year intervals
  207.     6 add 7 mod 7 add     % offset from Jan 1 2000
  208.     /off exch def
  209.     1 1 month 1 sub {
  210.         /idx exch def
  211.         days_month idx 1 sub get
  212.         idx 2 eq
  213.         isleap and
  214.         {
  215.             1 add
  216.         } if
  217.         /off exch off add def
  218.     } for
  219.     off 7 mod        % 0--Sunday, 1--monday, etc.
  220. } def
  221.  
  222. /center {        % center string in given width
  223.     /width exch def
  224.     /str exch def width str 
  225.     stringwidth pop sub 2 div 0 rmoveto str show
  226. } def
  227.  
  228. /calendar
  229. {
  230.     titlefont findfont 48 scalefont setfont
  231.     0 60 moveto
  232.     /month_name month_names month 1 sub get def
  233.     month_name show
  234.     /yearstring year 10 string cvs def
  235.     700 yearstring stringwidth pop sub 60 moveto
  236.     yearstring show
  237.  
  238.     0 0 moveto
  239.     drawnums
  240.  
  241.     0 0 moveto
  242.     drawfill
  243.  
  244.     0 0 moveto
  245.     drawgrid
  246. } def
  247.  
  248. 90 rotate
  249. 50 -120 translate
  250. /submonth 0 def
  251. calendar
  252. month 1 sub 0 eq
  253. {
  254.     /lmonth 12 def
  255.     /lyear year 1 sub def
  256. }
  257. {
  258.     /lmonth month 1 sub def
  259.     /lyear year def
  260. } ifelse
  261. month 1 add 13 eq
  262. {
  263.     /nmonth 1 def
  264.     /nyear year 1 add def
  265. } 
  266. {
  267.     /nmonth month 1 add def
  268.     /nyear year def
  269. } ifelse
  270. /submonth 1 def
  271. /year lyear def
  272. /month lmonth def
  273. 500 -365 translate
  274. gsave
  275. .138 .138 scale
  276. 10 -120 translate
  277. calendar
  278. grestore
  279. /submonth 1 def
  280. /year nyear def
  281. /month nmonth def
  282. 100 0 translate
  283. gsave
  284. .138 .138 scale
  285. 10 -120 translate
  286. calendar
  287. grestore
  288.  
  289. showpage
  290.  
  291. END-OF-CALENDAR
  292.  
  293. exit 0
  294.